home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 2
/
Merciful - Disc 2.iso
/
software
/
h
/
highspeedpascalv2.0b.dms
/
highspeedpascalv2.0b.adf
/
Interface
/
CIA.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-01-16
|
436b
|
33 lines
Unit CIA;
Interface
Uses Exec;
Type
pInterrupt = ^tInterrupt;
pLibrary = ^tLibrary;
Var
CiaBase: pLibrary;
Const
CIAANAME = 'ciaa.resource';
CIABNAME = 'ciab.resource';
Function AddICRVector
(iCRBit: Integer;
interrupt: pInterrupt): pInterrupt;
Procedure RemICRVector
(iCRBit: Integer;
interrupt: pInterrupt);
Function AbleICR (mask: Integer): Integer;
Function SetICR (mask: Integer): Integer;
End.